Top 10k strings from First Past the Post (1988)(Cult Games).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
9 ;"PRESS ANY KEY TO CONTINUE" 3 t$(race,z) 3 ;z;" ";h$(r(z)): 3 ;z;" ";h$(p(r(z)-72 2 z>numhorse 2 x(z)=x(z)+2 2 s(hrand-88 2 ;"e to exit" 2 ;"`";price 2 ;"Horse Market" 2 ;"Going: ";g$(going) 2 ;"Congratulations! You have won" 2 ;"----- ------" 1 z=numhorse+72 1 y(t(z))=y(t(z))+5 1 x|||~~~}qqb 1 x(z)=x(z)+4 1 x(z)=x(z)+ 1 x(z)=h(r(z),1 1 x(y)=x(y)-1 1 w(t(z))>30 1 w(t(z))=w(t(z))+5 1 w(t(z))=30 1 t(z)=r(v): 1 stake>5000 1 stake=stake*10 1 spradd=61008 1 spradd,ad2: 1 screen=61010 1 s(p(rand)-88 1 round=60643 1 rand=rand+72 1 race=race+1 1 r(z)=rand: 1 r(rand)>72 1 r(rand)=z+72 1 r(num)=l(race,z): 1 prtfac=61327 1 price>money 1 price=abrand*10000 1 picked=picked+1 1 p(rand)>88 1 p(rand)=rand+72 1 p(numhorse)=hrand 1 numhorse>8 1 numhorse=numhorse-1 1 numhorse=numhorse+1 1 numhorse=5 1 numhorse=16 1 numhorse<9 1 money=money-stake 1 money=money-price 1 money=money-fee 1 money=money-10000 1 money=money+price 1 money=money+num+stake 1 money=money+num 1 money=money+100000 1 money=money+10000 1 money<10000 1 m(race)=t(1 1 loan=loan-10000 1 loan=loan+10000 1 loan=100000 1 h$(rand+72 1 h$(p(z),y) 1 g$(going,z) 1 f(t(z),y)=f(t(z),y+1 1 f(rand,y)=5 1 f(r(z),y)<5 1 d(y,x,w)=d(y+1 1 d(rand,y,x)=0 1 d(numhorse,z,y)=0 1 course=course+1 1 clatts=61349 1 choice=61326 1 c$(course,z) 1 base=base+1 1 addr=addr+1 1 addr=65200 1 addr=58420 1 ad2=addr-ad1*256 1 One Mile Race Two Mile Race Three Mile Race 1 Kevin Sheedy 1 Jester BigotAndy Cap Penny JitmanAdam Parker 1 FirmGoodSoft 1 FPTP.CDE 1 FPTP.BAS 1 FIRST PAST 1 Celtic Shot Floyd Aldino Beech Road Alone Success Nos Na Goithe Rapier Thrust Sea Merchant Barnbrook Again Nohalmdon Sabin Du Loir Foyle Fisherman Sprowstown Boy Gaye Brief Fredcoteri Heart Of Stone Cavvies Clown Contradeal The Thinker Ballyhane Durham Edition West Tip Acarine The Argonaut Pearlyman Panto Prince High Knowl Little Bay Jimmy Lorenzo Saffron Lord Beat The RetreatAmbler Rambler Desert Orchid See You Then Very Promising Bonanza Boy Gee-A Southernair Belgrove Lad Yale Playschool Beau Ranger Kildimo Cybrandian Mr Frisk Mick's Star Bluff Cove Peaty Sandy Randolph Place Pat's Jester Prideaux Boy Hypnosis Karenomore Long Engagement Opening Bars Tom Sharp Celtic Chief Tickite Boo Osric Juven Light Gala's Image Clara Mountain Mr Moonraker Timely Star 1 Ascot Ayr Cheltenham 1 ??>>>>.FGcc 1 ;z;" ";q$(z) 1 ;z;" ";q$(x);" ";q(x,4 1 ;w$(w(z+72 1 ;w$(w(r(z))) 1 ;t$(y);": ";q(z,y) 1 ;pos;" ";h$(p(z)) 1 ;p$(d(z,y,4 1 ;h$(t(z)): 1 ;h$(p(z)); 1 ;h$(p(t(z)-72 1 ;h$(p(m(z)-72 1 ;h$(hrand) 1 ;g$(going) 1 ;g$(d(z,y,2 1 ;f(r(z),y): 1 ;c$(d(z,y,1 1 ;c$(course); 1 ;b$(f(t(z),3 1 ;b$(f(r(z),3 1 ;"or e to exit" 1 ;"m for more choice" 1 ;"`";num;" prize money." 1 ;"`";num;" from your bet." 1 ;"You owe `";loan 1 ;"You have `";money 1 ;"Wins this season:" 1 ;"Under starter's orders..." 1 ;"Trainer Of The Year:";q$(x) 1 ;"TRAINERS TABLE:" 1 ;"Stake? `" 1 ;"RESULT:" 1 ;"Press y to enter horse into racee to exit" 1 ;"Press number of horse to sell " 1 ;"Points this season: ";q(z,4 1 ;"Overall Major Wins: ";q(z,5 1 ;"No records for this horse yet.": 1 ;"New Horses" 1 ;"Name: ";q$(z) 1 ;"Major Winners:" 1 ;"MAJORS DAY" 1 ;"LOAD SAVED GAME Y/N": 1 ;"Input your name (max 12 chars)" 1 ;"Horse Of The Year:" 1 ;"Horse Trainer" 1 ;"Enter names of 5 new horses: (max 16 chars)" 1 ;"END OF SEASON" 1 ;"Do you wish to sell any horses"; 1 ;"Do you wish to buy the following horse (y/n)?" 1 ;"Day: ";day 1 ;"Course: ";c$(course) 1 ;"Choose trainer or"; 1 ;"Choose option: " 1 ;"Choose horse to see records for" 1 ;"Choose horse to bet on or" 1 ;"Betting Prices are:" 1 ;"AT ";c$(course) 1 ;"1 obtain loan of `10000 2 payback `10000 of loan e exit" 1 ;"-------- -----" 1 ;"------- ------ --- " 1 ;"----- -------" 1 ;"--- ------" 1 ;"--- -- ------" 1 ;" has been sold for..." 1 ;" Course Going Miles Pos." 1 ;" ------ ----- ----- ----" 1 ;" Sorry, too long ": 1 ;" Horse Trainer" 1 ;" ----- -------" 1 ;" ": 1 ;" ": 1 6/4 2/1 5/2 10/34/1 5/1 13/28/1 10/114/116/120/125/133/150/1 1 1st2nd3rd4th5th6th7th8th 1 1333333331 1 10 3 10 4 10 5 10 6 10 7 10 8 10 9 10 1010 1110 1210 1311 0 11 1 11 2 11 3 11 4 11 5 11 6 11 7 11 8 11 9 11 1011 1111 1211 1312 0 12 1 12 2 12 3 12 4 1 0133333310 1 ,y,x)=d(t(z)-72 1 ,x)=h(y+73 1 ,x)=f(y+73 1 *numhorse) 1 )+f(t(z),4 1 )+f(r(z),4 1 (w(r(z))/7 1 (num*stake) 1 "Horse ";z;": ";z$ 1 "FPTP.CDE" 1 "FPTP.BAS" 1 "6";"FIRST PAST THE POST!"; 1 "2";"TAP FILE BY BLOOD,27/04/98":